﻿<!--#include file="conn.asp"#-->
<!--#include file="sessao.asp"#-->
<!--#include file="getsessao.asp"#-->
<!--#include file="fn_combo.asp"#-->
<!--#include file="fn_table.asp"#-->
<%
Select Case request("acao")
	Case "getPerfis"
		getPerfis()
	Case "getEditarPerfil"
		getEditarPerfil()
	Case "getStatus"
		getStatus()
	Case "validarCombinacao"
		validarCombinacao()
End Select

Sub getPerfis()
	Dim db_string

	db_string = "select"
	db_string = db_string & " a.desc_area [Área],"
	db_string = db_string & " c.desc_cargo [Cargo],"
	db_string = db_string & " tp.desc_tipo [Tipo],"
	db_string = db_string & " '<a href=''#'' class=''botao ico'' onclick=''return getEditarPerfil('+convert(varchar,p.cod_perfil)+');''><span class=''edit''></span></a> ' "
		db_string = db_string & " as [Ações] "
	db_string = db_string & " from informacao.tb_perfis as p"
	db_string = db_string & " INNER JOIN informacao.tb_areas as a"
	db_string = db_string & " on a.cod_area = p.cod_area"
	db_string = db_string & " INNER JOIN informacao.tb_cargos as c"
	db_string = db_string & " on c.cod_cargo = p.cod_cargo"
	db_string = db_string & " INNER JOIN informacao.tb_usuario_tipo as tp"
	db_string = db_string & " on tp.cod_usuario_tipo = p.cod_usuario_tipo"

	db_string = db_string & " where 1=1 "
	if request("filtro_area") <> "" then
		db_string = db_string & " and a.desc_area LIKE '%"&request("filtro_area")&"%' "
	end if
	if request("filtro_cargo") <> "" then
		db_string = db_string & " and c.desc_cargo LIKE '%"&request("filtro_cargo")&"%' "
	end if
	db_string = db_string & " ORDER BY a.desc_area,c.desc_cargo "

	Dim pg_sel
	if request("pg_sel") = "" then
		pg_sel = 1
	else
		pg_sel = cdbl(request("pg_sel"))
	end if	
	response.write Table("list", db_string, "tabela", true, pg_sel, 10, "getPerfis(!@#)")	
End Sub

Sub getStatus()
	Dim db_string
	
	IF request("tipo") = "#cmb_cod_status" THEN
		db_string = " SELECT * FROM informacao.tb_status_perfil ORDER BY desc_status "
	ELSEIF request("tipo") = "#cmb_cod_area" THEN
		db_string = " select cod_area,desc_area from informacao.tb_areas where cod_status_area = 1 order by desc_area "
	ELSEIF request("tipo") = "#cmb_cod_cargo" THEN
		db_string = " select cod_cargo,desc_cargo from informacao.tb_cargos where cod_status_cargo = 1 order by desc_cargo "
	END IF
	retorno  = fn_combo(db_string,true,"")
	response.write retorno
End Sub


Sub getEditarPerfil()
	Dim db_string
	Dim rsPerfil
	if request("cod_perfil") <> "" then
		db_string = "select"
		db_string = db_string & " p.cod_perfil,"		
		db_string = db_string & " a.cod_area,"
		db_string = db_string & " a.desc_area,"
		db_string = db_string & " c.cod_cargo,"
		db_string = db_string & " c.desc_cargo,"
		db_string = db_string & " sp.cod_status_perfil,"
		db_string = db_string & " sp.desc_status,"
		db_string = db_string & " tp.cod_usuario_tipo"
		db_string = db_string & " from informacao.tb_perfis as p"
		db_string = db_string & " INNER JOIN informacao.tb_status_perfil as sp"
		db_string = db_string & " on p.cod_status_perfil = sp.cod_status_perfil"		
		db_string = db_string & " INNER JOIN informacao.tb_areas as a"
		db_string = db_string & " on a.cod_area = p.cod_area"
		db_string = db_string & " INNER JOIN informacao.tb_cargos as c"
		db_string = db_string & " on c.cod_cargo = p.cod_cargo"
		db_string = db_string & " INNER JOIN informacao.tb_usuario_tipo as tp"
		db_string = db_string & " on tp.cod_usuario_tipo = p.cod_usuario_tipo"
		db_string = db_string & " WHERE p.cod_perfil = "&request("cod_perfil")
		set rsPerfil = getRs(db_string)
		if not rsPerfil.eof then
			retorno = "{success : true, data: {"
			retorno = retorno & "'cod_perfil':'"&rsPerfil("cod_perfil")&"' ,"			
		    retorno = retorno & "'cod_area':'"&rsPerfil("cod_area")&"' ,"
		    retorno = retorno & "'desc_area':'"&rsPerfil("desc_area")&"' ,"
		    retorno = retorno & "'cod_cargo':'"&rsPerfil("cod_cargo")&"' ,"
		    retorno = retorno & "'desc_cargo':'"&rsPerfil("desc_cargo")&"' ,"
		    retorno = retorno & "'cod_status_perfil':'"&rsPerfil("cod_status_perfil")&"' ,"
		    retorno = retorno & "'desc_status':'"&rsPerfil("desc_status")&"' ,"
		    retorno = retorno & "'cod_usuario_tipo':'"&rsPerfil("cod_usuario_tipo")&"' }"
			retorno = retorno & "}"
		End If
		rsPerfil.close
	End If
	set rsPerfil = nothing
	response.write retorno
End Sub

Sub validarCombinacao()
	Dim db_string
	Dim rsPerfil
	Dim retorno
	Dim status_retorno
	if request("cmb_cod_area") <> "" and request("cmb_cod_cargo") <> "" THEN'
		db_string = "SELECT"
		db_string = db_string & " cod_perfil"
		db_string = db_string & " FROM informacao.tb_perfis as p"
		db_string = db_string & " WHERE 1=1"
		db_string = db_string & " AND p.cod_area = "&request("cmb_cod_area")
		db_string = db_string & " AND p.cod_cargo = "&request("cmb_cod_cargo")

		if request("cod_perfil") <> "0" and request("cod_perfil") <> "" then
			db_string = db_string & " AND not p.cod_perfil = "&request("cod_perfil")
		end if

		set rsPerfil = getRs(db_string)
		if not rsPerfil.eof then
			status_retorno = "false"
		Else
			status_retorno = "true"
		End If
		retorno = "{success : true, data: {"
		retorno = retorno & "'status_retorno':'"&status_retorno&"' }"			
		retorno = retorno & "}"
		response.write retorno
	Else
		response.write "false"
	End if
End Sub

%>